home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconal2a / startfor.frm < prev    next >
Text File  |  1999-10-13  |  6KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form StartForm 
  3.    BackColor       =   &H00008080&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   5490
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1515
  9.    ClientWidth     =   7650
  10.    FillColor       =   &H00008060&
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   366
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   510
  18.    ShowInTaskbar   =   0   'False
  19.    Begin VB.Shape Shape1 
  20.       BorderColor     =   &H00000080&
  21.       BorderWidth     =   5
  22.       Height          =   5415
  23.       Left            =   30
  24.       Top             =   30
  25.       Width           =   7590
  26.    End
  27.    Begin VB.Label Label5 
  28.       Alignment       =   2  'Center
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "stephan.swertvaegher@planetinternet.be"
  31.       ForeColor       =   &H00FFFF80&
  32.       Height          =   285
  33.       Left            =   1980
  34.       TabIndex        =   4
  35.       Top             =   3600
  36.       Width           =   3615
  37.    End
  38.    Begin VB.Label Label4 
  39.       Alignment       =   2  'Center
  40.       BackStyle       =   0  'Transparent
  41.       Caption         =   "Let's Rock !"
  42.       BeginProperty Font 
  43.          Name            =   "Times New Roman"
  44.          Size            =   27.75
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H00008000&
  52.       Height          =   555
  53.       Left            =   2040
  54.       TabIndex        =   3
  55.       Top             =   4365
  56.       Width           =   3705
  57.    End
  58.    Begin VB.Label Label3 
  59.       Alignment       =   2  'Center
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "by Stephan Swertvaegher"
  62.       BeginProperty Font 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   13.5
  65.          Charset         =   0
  66.          Weight          =   700
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       ForeColor       =   &H0000C0C0&
  72.       Height          =   420
  73.       Left            =   1980
  74.       TabIndex        =   2
  75.       Top             =   2115
  76.       Width           =   3660
  77.    End
  78.    Begin VB.Label Label2 
  79.       Alignment       =   2  'Center
  80.       BackStyle       =   0  'Transparent
  81.       Caption         =   "Programmed October 1999"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   13.5
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       ForeColor       =   &H0000C0C0&
  92.       Height          =   420
  93.       Left            =   1845
  94.       TabIndex        =   1
  95.       Top             =   1800
  96.       Width           =   3930
  97.    End
  98.    Begin VB.Image Image2 
  99.       Height          =   3900
  100.       Left            =   135
  101.       Picture         =   "StartForm.frx":0000
  102.       Top             =   765
  103.       Width           =   1710
  104.    End
  105.    Begin VB.Label Label1 
  106.       Alignment       =   2  'Center
  107.       BackStyle       =   0  'Transparent
  108.       Caption         =   "Icon-Album Deluxe"
  109.       BeginProperty Font 
  110.          Name            =   "MS Sans Serif"
  111.          Size            =   18
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   -1  'True
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H00FFC0FF&
  119.       Height          =   555
  120.       Left            =   1845
  121.       TabIndex        =   0
  122.       Top             =   900
  123.       Width           =   3975
  124.    End
  125.    Begin VB.Image Image1 
  126.       Height          =   3900
  127.       Left            =   5805
  128.       Picture         =   "StartForm.frx":20D7
  129.       Top             =   765
  130.       Width           =   1710
  131.    End
  132. End
  133. Attribute VB_Name = "StartForm"
  134. Attribute VB_GlobalNameSpace = False
  135. Attribute VB_Creatable = False
  136. Attribute VB_PredeclaredId = True
  137. Attribute VB_Exposed = False
  138.  
  139. Private Sub Form_Load()
  140. Call ColBar(StartForm, 10, 20, 128, 0, 0, 255, 0, 128)
  141. Call ColBar(StartForm, 336, 20, 128, 0, 0, 255, 0, 128)
  142. StartForm.Move (Screen.Width - StartForm.Width) / 2, (Screen.Height - StartForm.Height) / 2
  143. Label4.ForeColor = RGB(64, 64, 20)
  144. IconBook.Show
  145. IconBook.Enabled = False
  146.  
  147. End Sub
  148.  
  149. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  150. Label4.ForeColor = RGB(64, 64, 20)
  151. End Sub
  152.  
  153. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  154. Label4.ForeColor = RGB(64, 64, 20)
  155. End Sub
  156.  
  157. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  158. Label4.ForeColor = RGB(64, 64, 20)
  159. End Sub
  160.  
  161. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  162. Label4.ForeColor = RGB(64, 64, 20)
  163. End Sub
  164. Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  165. Label4.ForeColor = RGB(64, 64, 20)
  166. End Sub
  167. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  168. Label4.ForeColor = RGB(64, 64, 20)
  169. End Sub
  170.  
  171. Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  172. StartForm.Hide
  173. IconBook.Show
  174. IconBook.Enabled = True
  175. End Sub
  176.  
  177. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  178. Label4.ForeColor = &HAACC&
  179. End Sub
  180.  
  181.